home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / html / data / satan_open_action.pl < prev   
Text File  |  1995-03-31  |  1KB  |  63 lines
  1. #
  2. # Open a data base and keep the user informed.
  3. #
  4. ($_directory) = split(/,/, $html_script_args);
  5.  
  6. #
  7. # Make sure they specified a directory at all.
  8. #
  9. $_directory = $_satan_dir if $_directory eq "";
  10.  
  11. if ($_directory eq "") {
  12.     print CLIENT <<EOF;
  13. <HTML>
  14. <HEAD>
  15. <TITLE>Error - Missing input </TITLE>
  16. <LINK REV="made" HREF="mailto:satan\@fish.com">
  17. </HEAD>
  18. <BODY>
  19. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> Error - Missing input </H1>
  20. <hr>
  21. No data base name was specified.
  22. </BODY>
  23. </HTML>
  24. EOF
  25.     die "\n";
  26. }
  27.  
  28. #
  29. # Create data base when it does not exist
  30. #
  31. $satan_data = $_directory;
  32. &init_satan_data();
  33.  
  34. #
  35. # Read the data base, after resetting the in-core data structures.
  36. #
  37. print CLIENT <<EOF;
  38. <HTML>
  39. <HEAD>
  40. <TITLE>SATAN Data Management</TITLE>
  41. <LINK REV="made" HREF="mailto:satan\@fish.com">
  42. </HEAD>
  43. <BODY>
  44. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> SATAN Data Management</H1>
  45. <HR>
  46. EOF
  47.  
  48. if (-s "$facts_file") {
  49.     print CLIENT <<EOF;
  50. <strong>Loading data from <i> $_directory. </i> This may take some time. <p>
  51. EOF
  52. }
  53.  
  54. &read_satan_data();
  55.  
  56. print CLIENT <<EOF;
  57. <strong>Data base selection completed successfully.</strong>
  58. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a>
  59. | <a href=../reporting/analysis.pl>Continue with report and analysis</a>
  60. </BODY>
  61. </HTML>
  62. EOF
  63.